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-- File: Bootmesa.Mesa 

-- Last edited by Sandman; May 24, 1978 11:53 AM 

DIRECTORY 

AllocDefs: FROM "allocdefs". 
AltoDefs: FROM "altodefs", 
AUoFileDefs: FROM "al tof iledef s". 
BcdDefs: FROM "bcddefs". 
BootCacheDefs: FROM "bootcachedefs'*. 
BootmesaDefs: FROM "bootmesadef s". 
CommanderDefs: FROM "commanderdef s". 
ControlDefs: FROM "controldef s", 
FakeSegDefs: FROM "fakesegdef s'\ 
FileLookupDefs: FROM "f ilelookupdef s'\ 
ImageDefs: FROM "imagedef s" . 
lODefs: FROM "iodefs". 
InlineDefs: FROM "in! inedef s" . 
LoaderBcdUtilDefs: FROM "loaderbcdutildefs". 
LoadStateDefs: FROM "loadstatedef s", 
MiscDefs: FROM "miscdefs". 
OsStaticDefs: FROM "osstaticdefs" , 
ProcessDefs: FROM "processdef s" , 
SDDefs: FROM "sddefs", 
SegmentDefs: FROM "segmentdef s", 
StreamDefs: FROM "streamdef s" , 
StringDefs: FROM "stringdef s" . 
SysteniDefs: FROM "systemdef s" . 
TimeDefs: FROM "timedefs", 
WartDefs: FROM "wartdefs"; 

DEFINITIONS FROM FakeSegDefs. AltoDefs, ControlDefs. WartDefs. BootmesaDefs; 

Bootmesa: PROGRAM [data: POINTER TO BootData] 

IMPORTS BootCacheDefs, BootmesaDefs, CommanderDefs, lODefs, MiscDefs. 
SegmentDefs, StringDefs, TimeDefs, FakeSegDefs, LoaderBcdUtilDefs 

EXPORTS BootmesaDefs, FakeSegDefs 

SHARES ControlDefs, ImageDefs. ProcessDefs ■ 
BEGIN 

FileHandle: TYPE « SegmentDefs . FileHandle; 
FileSegmentHandle: TYPE = SegmentDefs .FileSegmentHandle; 
DataSegmentHandle: TYPE » SegmentDefs .DataSegmentHandle; 

-- utility procedures 

BootAbort: PUBLIC SIGNAL - CODE; 

SwapInFrame: PUBLIC PROCEDURECf: GlobalFrameHandle] ■ 
BEGIN 

codeseg: FakeSegmentHandle <- BootCacheDefs. READ[0f.codesegment]; 
FakeSegDefs. FakeSwap I n[ code seg]; 
END; 

BootmesaError: PUBLIC PROCEDURE [msg: STRING] - 
BEGIN OPEN lODefs; 
WriteSt ring ["Bootmesa Error "L]; 
WriteLine[msg]; 
SIGNAL BootAbort; 
END; 

-- Frame Allocation 

paramsperf rame: CARDINAL - 1; 
stringsizeperf rame: CARDINAL ■ 10; 
framesloaded: CARDINAL ^ 0; 
framebase: POINTER; 
FrameStackFull: ERROR « CODE; 
extraFramesDesired: BOOLEAN ^ FALSE; 

framevec: PACKED ARRAY [0..18] OF CARDINAL ■ 

[7,11,15,19,23,27,31,39.47,56,67.79,95,111,127,147,171,199.231]; 
frameweight: PACKED ARRAY [0..19] OF CARDINAL ♦- 

[9,13,9,8,7,6,4,2,2,1,1.1.1.1,1,1,1,1,1,0]; 
extraframes: ARRAY [0. .MaxAllocSlot) OF CARDINAL; 
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AllocGlobalFrame: PUBLIC PROCEDURE [ 

framesize, nlinks: CARDINAL, frame! inks: BOOLEAN] RETURNS [frame: POINTER] 

BEGIN 

framebase ^ framebase - framesize; 

frame ^ framebase ♦- framebase - LOOPHOLE[framebase, CARDINAL] MOD 4; 

IF framelinks THEN framebase ^ framebase - nlinks; 

IF LOOPHOLE[framebase. CARDINAL] < CARDINAL[FirstVMPage*PageSize] THEN 

ERROR FrameStackFull ; 
RETURN 
END; 

AllocFrame: PROCEDURE [findex: CARDINAL] RETURNS [frame: POINTER] ■ 
BEGIN 

frames! oaded ♦- framesloaded + 1; 

frame ♦- framebase <- framebase - {f ramevec[f index]+l) ; 
BootCacheDefs.WRITE[frame-l. findex]; 
RETURN 
END; 

AddFrame: PROCEDURE [findex: CARDINAL] ■ 
BEGIN OPEN BootCacheDefs; 
p: POINTER ■ Al locFrame[f index]; 
WRITE[p. READ[AVbase+findex]]; 
WRITE[AVbase+findex, p]; 
END; 

GetExtraFrames: PUBLIC PROCEDURE - 
BEGIN 

extraFramesDesired ♦- TRUE; 
END; 

SetExtraFrames: PUBLIC PROCEDURE • 
BEGIN OPEN lODefs; 
i: CARDINAL; 

IF -extraFramesDesired THEN RETURN; 
WriteLine["Index Size Extra"L]; 
FOR i IN [O..LENGTH[extraframes]) DO 

WriteNumber[i.NumberFormat[ 10, FALSE. FALSE, 5]]; 

WriteNumber[framevec[i], Number Format [10. FALSE, FALSE, 5]]; 

WriteChar[' ]; 

extraf rames[i] ^ ReadNumber[0,10 1 

StringDef s. InvalidNumber , Rubout, LineOverf!ow ■> 
BEGIN WriteString[" ? "L]; RETRY END]; 

WriteChar[CR]; 

ENDLOOP; 
END; 

InitializeExtraFrames: PROCEDURE ■ 
BEGIN 

i: CARDINAL; 
FOR i IN [0, .LENGTH[extraframes]) DO 

extraframes[i] <- 0; 

ENDLOOP; 
extraFramesDesired ^ FALSE; 
END; 

A!locateExtraFrames: PROCEDURE « 
BEGIN 

i,j: CARDINAL; 

FOR i IN [0. .LENGTH[extraframes]) DO 
FOR j IN [0. .extraframes[i]) DO 
AddFrame[i]; 
ENDLOOP; 
ENDLOOP; 
END; 

DivideAllocationArea: PROCEDURE [base: Address, size: CARDINAL] - 
BEGIN OPEN BootCacheDefs; 

p: Address <- base+4; -- allow initial dead space 
i, J, s, c, sum: CARDINAL; 

fw: ARRAY [0 . .LEN6TH[f rameweight]) OF CARDINAL; 

FOR i IN [0. .LENGTH[fw]) DO fw[i]*-f rameweight[i] ENDLOOP; 
size ^ size~4; 
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sum^-O; 

FOR i IN [O..LENGTH[fw3) DO sum *■ sum + f ramevec[i]*fw[i] ENDLOOP; 

c ^ MAX[size/sum,l]; 

WHILE size > framevec[0] DO 

FOR i IN[O..LENGTH[framevec]) DO 
s ♦- framevec[i]+l; 
FOR j IN[l..fw[i]*c] DO 
-- add to alloc vector 
IF size < s THEN EXIT; 
WRITE[p-l,i]; -- hidden link word 
WRITE[p, READ[AVbase+i]3; 
WRITE[AVbase+i. p]; 
p^p+s; size*-size-s; 
ENDLOOP; 
ENDLOOP; 
FOR i IN[O..LENGTH[fw]-l) DO fw[i]*-MAX[fw[i]/3, 1] ENDLOOP; 
c^l; 

ENDLOOP; 
RETURN 
END; 



-- initialization 

AVbase, GFTbase, SDbase, SVbase: POINTER ^ NIL; 

VMFileHandle: FileHandle; 
DefaultFirstVMPage: PageNumber <- 2; 
DefauULastVMPage: PageNumber ♦- 370B; 
FirstVMPage: PageNumber <- 0; 
LastVMPage: PageNumber *• 0; 

SetMemoryLimits: PROCEDURE [fp, Ip: PageNumber] - 
BEGIN FirstVMPage ♦- fp; LastVMPage <- Ip; END; 

SetDefaul tMemoryLimits: PUBLIC PROCEDURE [fp, Ip: PageNumber] - 
BEGIN DefaultFirstVMPage ^ fp; DefauULastVMPage <- Ip; END; 

StateVectors: CARDINAL - 

(LAST[ProcessDefs.Priority]+l)*SIZE[ControlDefs.StateVector]; 

DefauUNProcesses: PUBLIC CARDINAL <- 

(AUoDefs.PageSize-StateVectors)/SIZE[ProcessDefs.PSB]; 

nProcesses: CARDINAL ♦- 0; 

SetNumberProcesses: PROCEDURE [n: CARDINAL] » BEGIN nProcesses <- n; END; 

SetDefaul tNProcesses: PUBLIC PROCEDURE [n: CARDINAL] - 
BEGIN DefauUNProcesses <- n; END; 

AVregister: POINTER » LOOPHOLE[1000B]; 
GFTregister: POINTER « LOOPHOLE[14aOB]; 
SDoffset: CARDINAL » 60B; 

.. i|i«4iiK4i*i|ii|ii|i4ii|iiti4ii|i4i4i«4i«*i|i<«ii|ii|i«)|i)|iitii|>«iiii|iiti*4i«4i4ii|i 

FramePages: PageCount; 

DefauUGFTLength: CARDINAL *- 266; 
GFTLength: CARDINAL *- 0; 

SetGFTLength: PROCEDURE [1: CARDINAL] « BEGIN GFTLength ♦- 1; END; 

SetDefauUGFTLength: PUBLIC PROCEDURE [1: CARDINAL] « 
BEGIN DefauUGFTLength ♦- 1; END; 

AssignDefauUs: PROCEDURE - 
BEGIN 

IF FirstVMPage - THEN FirstVMPage *- Def auUFirstVMPage; 
IF LastVMPage - THEN LastVMPage ^ DefauULastVMPage; 
IF GFTLength « THEN GFTLength ♦- DefauUGFTLength; 
IF nProcesses « THEN nProcesses ^ DefauUNProcesses; 
RETURN 
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END; 

InltializeVM: PROCEDURE [framep: PageCount] ■ 
BEGIN OPEN SegmentDefs. BootCacheDef s. FakeSegDefs; 
s: FakeSegmentHandle; 
i. GFTpages, SVpages: CARDINAL; 
fp: PageNumber; 

AssignDef au1ts[]; 

fp <- FirstVMPage; 

FramePages <- framep; 

FakeInitSegMachinery[ FirstVMPage, LastVMPage] ; 

BootCacheDef s. In itCoreCache["BootMes a. Scratch", FirstVMPage, LastVMPage]; 

framebase ^ LOOPHOLE[(LastVMPage+l) * PageSizej; 

-- av and sd 

s ^ FakeNewSegmentCDefauUFile, FirstVMPage, l,Read+Write]; 

VMFileHandle *- s.File; 

AVbase ^ LOOPHOLE[s.VMaddress]: 

IF AVbase # AVregister THEN BootmesaError["Inval id AV'L]; 

SDbase ♦- AVbase + SDoffset; 

FOR i IN[O..PageSize) DO WRITE[AVbase+i ,0] ENDLOOP; 

FOR i IN[0. .MaxAllocSlot) DO WRITE[AVbase+i , 4*(i+l)+2] ENDLOOP; 

WRITE[AVbase+ll, 1]; 

FOR i IN [MaxAllocSlot.. MaxAnocSlot+2] DO WRITE[AVbase+i , 1] ENDLOOP; 

--gft 

fp *- fp+1; 

GFTpages ♦- (GFTLength*SIZE[GFTItem]+(PageSize-l))/PageSize; 

s ^ FakeNewSegment[DefaultFile,fp, GFTpages, Read+Write]; 

GFTbase *- LOOPHOLE[s.VMaddress]; 

IF GFTbase # GFTregister THEN BootmesaError["Inval id GFT"L]; 

FOR i IN[0. .GFTLength*SIZE[GFTItem]) DO WRITE[GFTbase+i . 0] ENDLOOP; 

Boo tmesaDefs. Initial izeGFT[GFTbase. GFTLength]; 

WRITE[SDbase+SDDefs.sGFTLength, GFTLength]; 

-- process storage initialization 

SVpages *- (nProcesses*SIZE[ProcessDef s.PSB] + StateVectors 

+ (PageSize-l))/PageSize; 
s <- FakeNewSegment[DefaultFile, fp+GFTpages, SVpages, Read+Write]; 
SVbase ♦- LOOPHOLE[s.VMaddress]; 
WRITE[SDbase+SDDefs.sFirstStateVector, SVbase]; 
WRITE[SDbase+SDDefs.sFirstProcess, SVbase+StateVectors]; 
WRITE[SDbase+SDDefs.sLastProcess, 

SVbase+StateVec tor s+(nProcesses-l)*SIZE[ProcessDef s.PSB]]; 
FOR i IN [0. .SVpages*AltoDefs.PageSize) DO WRITE[SVbase+i . 0] ENDLOOP; 
data. AVbase <- AVbase; 
data. GFTbase <- GFTbase; 
data. SDbase ^ SDbase; 
RETURN 
END; 

InitializeHeap: PUBLIC PROCEDURE - 
BEGIN 

stackbase: PageNumber; 
stackpages: PageCount; 
frameseg: FakeSegmentHandle; 

AllocateExtraFrames[]; 

stackbase ^ LOOPHOLE[f ramebase,CARDINAL]/PageSize; 

stackpages <- LastVMPage-stackbase+1; 

frameseg <- 

FakeNewSegment[Oefaul tFile, stackbase- FramePages, FramePages+stackpages , 
SegmentDefs.Read+SegmentDef s .Write]; 

DivideAllocationArea[frameseg.VMaddress, LOOPHOLE[f ramebase-f rameseg .VMaddress]] ; 

RETURN 

END; 

images tamp: BcdDef s.VersionStamp; 

InitializeBootmesa: PUBLIC PROCEDURE [framep: PageCount, root: STRING] 
RETURNS [BcdDef S.VersionStamp] - 
BEGIN 

Initial izeVM[ framep]; 
Initial izeBootScript[]; 
Initial izeExtraFrames[]; 
data. imageFileRoot. length <- 0; 
S tr ingDefs. Appends tring[dat a. imageFileRoot, root]; 
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BootmesaDef s .OpenLoadmap[root] ; 

imageStamp ^ [zapped:FALSE, net: MiscDef s.GetNetworkNumber[], 

host: OsS tat i cDef s.OsS tat ics. Serial Number, 

time: TimeDefs.CurrentDayTime[]]; 
RETURN[imageStamp] 
END; 

AdjustBcd: PUBLIC PROCEDURE [fs: FakeSegmentHandle] ■ 
BEGIN OPEN SegmentDefs; 
s: FileSegmentHandle; 
bed: POINTER TO BcdDefs.BCD; 
sgb: CARDINAL; 
AdjustCodeSegment: PROCEDURE [mth: BcdDef s.MTHandle, mti : BcdDef s.MTIndex] 

RETURNS [BOOLEAN] ■ 

BEGIN 

frame: GlobalFrameHandle <- 

BootCacheDefs.READ[@ControlDefs.GFT[mth.gfi]. frame]; 

(sgb+mth. code. sgi) .file *- BcdDefs.FTSelf ; 

(sgb+mth. code. sgi). base ^ LOOPHOLE[ 
BootCacheDefs.READ[0frame.codesegment], FakeSegmentHandle]. ImageBase; 

RETURN[FALSE]; 

END; 
IF fs.File # data.imageFile THEN ERROR; 

s ♦- NewFileSegment[data. imageFile, fs. ImageBase, fs. Pages, Read+Write]; 
Swapln[s]; 

bed ^ FileSegmentAddress[s]; 
sgb <- LOOPHOLE[bcd+bcd.sgOffset]; 

[] ♦- LoaderBcdUtilDefs.EnumerateModu1eTable[bcd, AdjustCodeSegment]; 
Unlock[s]; 

DeleteFileSegment[s]; -- Swaps out first 
RETURN 
END; 

DeclareLoadStateParameters: PUBLIC PROCEDURE [ 
Isseg, initlsseg, bcdseg: FakeSegmentHandle] - 
BEGIN OPEN SegmentDefs; 

gft: POINTER TO ARRAY [0..0) OF GFTItem « GFTbase; 
i: CARDINAL; 

NullFP: AltoFileDefs.FP « [[1 , 0, 1 . 17777B, 177777B]. AUoFileDef s .eofDA]; 
seg: FileSegmentHandle *- NewFileSegment[ 

initl sseg . File, initlsseg. ImageBase, initlsseg. Pages, Read+Write]; 
bseg: FileSegmentHandle ♦- NewFileSegment[ 

bcdseg. File, bcdseg. ImageBase, bcdseg. Pages, Read+Write]; 
loadstate: LoadStateDef s.LoadState; 
bed: POINTER TO BcdDefs.BCD; 
Swapln[seg]; 

loadstate <- FileSegmentAddress[seg]; 
MiscDef s.Zero[ load state, Al toDefs. PageSize* seg. pages]; 
Swapln[bseg]; 

bed *- FileSegmentAddress[bseg]; 
FOR i IN [O..GFTLength) DO 

IF BootCacheDefs.READ[@gft[i]. frame] = ControlDef s.NullGlobalFrame THEN 
loadstate. gft[i] ^ [config: LoadStateDef s .ConfigNull , gfi: 0] 
ELSE loadstate. gft[i] <- [config: 0, gfi: i]; 

ENDLOOP; 
loadstate. bcds[0] <- [fp: NullFP, da: AltoFileDefs .eofDA, base: bseg. base, 

unresolved: bcd.nlmports # 0, exports: bcd.nExports # 0, fill: 0, 

pages: bseg. pages]; 
Unlock[seg]; 
DeleteFileSegment[seg]; 
Unlock[bseg]; 
DeleteFileSegment[bseg]; 

seg <- NewFileSegment[lsseg. File, 1 sseg. ImageBase, Isseg. Pages, Read+Write]; 
Swapln[seg]; 

MiscDef s.Zero[Fi leSegmentAddress[ seg], AltoDefs. PageSize* seg. pages]; 
Unlock[seg]; 
DeleteFileSegment[seg]; 

data. image. prefix. loadStateBase *- Isseg. ImageBase; 
data, image. prefix. initialLoadStateBase <- initlsseg. ImageBase; 
data, image. pref ix. loadStatePages ♦- Isseg. Pages; 
data.bsheader. loadState ♦- FakeSegDef s.GetSegmentBootLink[lsseg]; 
data.bsheader. initLoadState ♦- FakeSegDef s.GetSegmentBootLink[initlsseg]; 
data.bsheader. bed *- FakeSegDefs.GetSegmentBootLink[bcdseg]; 
END; 

Writelmage: PUBLIC PROCEDURE « 
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BEGIN OPEN FakeSegDefs, BootCacheDef s; 

[] ♦- FakeEnumerateSegm0nts[WriteSwappedIn]; 

[] <- FakeEnumerateS8gm8nts[WriteSwappedOut]; 

SegmentDefs.UnlockFileCGetCoreFi1e[]]; 

[] ^ F1ushCoreCache[0, AllocDefs.Def aul tDataSegmentlnfo, NIL]; 

SetCoreFile[data. imageFile]; 

data. imageSt ream. destroy [data. images t ream]; 

RETURN 
END; 

XFER: PUBLIC PROCEDURE [dest: Global FrameHandle] ■ 
BEGIN OPEN SegmentDefs; 
data. image. prefix. state. stk[0] ^ 

Fi ni shBootScr i pt [Con trolDefs. Null Global Frame]; 
data. image. prefix. state. stkptr ^ 1; 

data. image. prefix. state. dest ♦- SetupMainBodyFrame[dest]; ' 
data. image. prefix. state. source ♦- ControlDefs.NullFrame; 
data.image.prefix. version ♦- imageStamp; 
BootmesaDef s .CloseLoadmap[]; 

[] ^ BootCacheDefs.FlushCoreCache[0, AllocDefs.Def aul tDataSegmentlnfo, NIL]; 
Unlock[data.headerSeg]; DeleteFileSegment[data.headerSeg]; 
RETURN 
END; 

SetupMainBodyFrame: PROCEDURE [dest: Global FrameHandle] 
RETURNS [frame: FrameHandle] ■ 
BEGIN OPEN BootCacheDef s, SegmentDefs; 
framesize: CARDINAL; 

av: POINTER TO ARRAY [0..0) OF POINTER - AVbase; 
cseg: FakeSegmentHandle <- READ[0dest.codesegment]; 
codeseg: FileSegmentHandle ^ 

NewFileSegment[cseg.File, cseg. ImageBase, cseg. Pages. Read]; 
code: POINTER TO CSegPrefix; 
fw: FirstFrameWord <- READ[dest]; 

IF -cseg.Swappedln THEN BootmesaError["Dest Not Swapped Inl"L]; 
SwapIn[codeseg]; 

code <- FileSegmentAddress[codeseg]; 
code *- code + READ[0dest .code] - cseg.VMaddress; 
framesize ♦- code. entry[MainBodyIndex]. framesize; 

IF framesize >« MaxAllocSlot THEN BootmesaError[*'Large Main Body Frame! "L]; 
frame <- READ[@av[f ramesize]]; 
WRITE [@av [framesize], READ[ frame]]; 

WRITE [©frame. PC code. entry[MainBodyIndex]. initial pc]; 
WRITE[@frame.accesslink, dest]; 
WRITE[@frame. return! ink, ControlDefs.NullFrame]; 
fw. started <r TRUE; 
WRITE[dest, fw]; 

WRITE [SDbase+SDDefs.sXferTrap, frame]; 
Unlock [codeseg] ; Del eteFileSegment[ codeseg]; 
RETURN 
END; 

command: CommanderDef s.CommandBlockHandle; 

BEGIN OPEN CommanderDef s; 

command ♦- AddCommand["SetGFTLength" , LOOPHOLE[SetGFTLength]. 1]; 
command. params[0] ^ [type: numeric, prompt: "GFTLength"]; 

command ♦- AddCommand["SetNumberProcesses" , LOOPHOLE[SetNumberProcesses] . 1]; 
command. params[0] ^ [type: numeric, prompt: "NumberProcesses"]; 

command *- AddCommand["SetMemoryBounds" , LOOPHOLE[SetMemoryLimits], 2]; 
command. params[0] *- [type: numeric, prompt: "FirstVMPage"]; 
command. params[l] ♦- [type: numeric, prompt: "LastVMPage"]; 

[] ♦- AddCommand["GetExtraFrames",LOOPHOLE[GetExtraFrames],0]; 

END; 

END... 



